﻿<!--#include virtual="/Common/Config.asp" -->
<!--#include virtual="/Common/conn.asp" -->
<!--#include virtual="/Common/function.asp" -->
<%
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"

On Error Resume Next 
TS_ID	= reform("ID")

Result_Text  = ""

If TS_ID="" Then 
	Result_Text  = "Error"
Else
	TS_ID = Mid(TS_ID,2,Len(TS_ID))

	Sql = "DELETE FROM Info_Sort_Table WHERE ID IN ("&TS_ID&")"
	'writebr Sql
	conn.execute(Sql)
	If Err.Number<>0 Then 
		Result_Text = "Error"
	Else
		Result_Text="1"		
	End If 
End If 

Conn_Close()

Response.Write Result_Text
%>

